home *** CD-ROM | disk | FTP | other *** search
- :welcome.scr
-
- clear
- keyboard
- cursor 19 16
- print 'Welcome to my typing tutorial PcKey.
- cursor 0 18
- print 'I will try and make it easy for you to get used to the way my program works.
- cursor 0 20
- print 'I may ask you a question and give you a choice of keypresses to answer with.
- cursor 0 22
- hkey y
- print 'If you are with me so far press Y.
- :try_y_again
- wait -
- if key ! Y if key ! y goto y_not_pressed
- goto y_pressed
-
- :y_not_pressed
- clear 24 24
- cursor 12 24
- print 'You did'nt press the Y key. Try again, press the Y key.
- goto try_y_again
-
- :y_pressed
- clear 16
- cursor 22 16
- bkey y
- print 'Good, you pressed the correct key.
-
- cursor 0 19
- print 'Remember, anytime that you are using PcKey, pressing the ESC key will return you
- cursor 15 21
- print 'to the previous screen; ESC is short for ESCape.
-
- cursor 0 24
- print 'Press any key to continue.
- wait
-